home *** CD-ROM | disk | FTP | other *** search
/ Nikkei Mac 20 / NIKKEI-MAC-CD-VOL-20-1998-12.ISO.7z / NIKKEI-MAC-CD-VOL-20-1998-12.ISO / オンラインソフト / 9.ウェブ作成ツール / HTML Grinder v3.35.sit / HTML Grinder v3.35 / Grinder Tools / Find and Replace / background_3858.xml next >
Extensible Markup Language  |  1998-09-23  |  4KB  |  44 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3858</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3127.css" />
  10.     <part>
  11.         <id>6</id>
  12.         <type>button</type>
  13.         <visible> <true /> </visible>
  14.         <reserved5> 0 </reserved5>
  15.         <reserved4> 0 </reserved4>
  16.         <reserved3> 0 </reserved3>
  17.         <reserved2> 0 </reserved2>
  18.         <reserved1> 0 </reserved1>
  19.         <enabled> <true /> </enabled>
  20.         <rect>
  21.             <left>0</left>
  22.             <top>246</top>
  23.             <right>19</right>
  24.             <bottom>264</bottom>
  25.         </rect>
  26.         <style>opaque</style>
  27.         <showName> <false /> </showName>
  28.         <highlight> <false /> </highlight>
  29.         <autoHighlight> <true /> </autoHighlight>
  30.         <sharedHighlight> <true /> </sharedHighlight>
  31.         <family>0</family>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>29540</icon>
  34.         <textAlign>center</textAlign>
  35.         <font>Chicago</font>
  36.         <textSize>12</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <name>Help</name>
  39.         <script>on mouseUpfullhelpend mouseUpon mouseenterhelper "Click here for more help for HTML Grinder."end mouseenter</script>
  40.     </part>
  41.     <name></name>
  42.     <script>on processcheckforinvisiblespass processend processon checkforinvisiblesput empty into fieldnamesif last char of cd fld "findtext" is in " ﾂ " & returnthen put "true" into findaloif last char of cd fld "changetext" is in " ﾂ " & returnthen put "true" into changealo--if findalo is "true"then put "Find " into fieldnamesif changealo is "true" thenif fieldnames is not emptythen put "and " after fieldnamesput "Change " after fieldnamesend ifif fieldnames is not empty thenput "field" after fieldnamesif the number of words in fieldnames > 2then put "s" after fieldnamesput " contain" after fieldnamesif the number of words in fieldnames < 4then put "s" after fieldnames--answer "The" && fieldnames && "some invisible characters at the end, such as returns or spaces. These characters can cause" &&ﾂｬ"unexpected results. Do you want to strip all invisible trailing characters or leave the fields unchanged?"ﾂｬwith "Cancel" or "No change" or "Strip Chars"if it is "Cancel"then exit to hypercardelse if it is "Strip Chars" thenstripinvisiblesanswer "All invisible trailing characters have been deleted." with "Continue"else-- answer "Will Find and Replace using strings exactly as they have been entered." with "Continue"end ifend ifend checkforinvisibleson stripinvisiblesrepeat until last char of cd fld "findtext" is not in (" ﾂ " & return)delete last char of cd fld "findtext"end repeatrepeat until last char of cd fld "changetext" is not in (" ﾂ " & return)delete last char of cd fld "changetext"end repeatend stripinvisibleson converter thefile,thecontentsput cd fld findText into finderput cd fld changetext into changerif the hilite of cd btn "case sensitive" is truethen put findreplace(thecontents,finder,changer,,casesensitive) into newcontentselse put findreplace(thecontents,finder,changer) into newcontentsif newcontents is not "ERROR: Text Not Found"then ReplaceFile thefile,newcontentsend converteron alldoneglobal totalchangesget totalchanges&&"occurrences were changed."put "0" into totalchangessend "alldone it" to homie()end alldoneon resetwheelput empty into cd fld findtextput empty into cd fld changetextset the hilite of cd btn "Case Sensitive" to falsepass resetwheelend resetwheel</script>
  43. </background>
  44.